home *** CD-ROM | disk | FTP | other *** search
/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / raytracers / _pvray / pv / scenes / ntreal < prev    next >
Encoding:
Text File  |  1991-11-03  |  7.2 KB  |  301 lines
  1. // Persistence of Vision Raytracer
  2. // Sample file
  3. // By Drew Wells
  4.  
  5. // Title-"<PVray$Dir>. Have fun with it! 
  6. // - Drew Wells CIS 73767,1244 
  7. // 11/29/90 
  8.  
  9.  
  10.  
  11. // Note - This one is a memory hog for pc's because of the twister 
  12. //        If you can't run it, try editing out some of the twister's 
  13. //        parts.  Requires #include file twister.inc
  14.  
  15. #include .e fun with it! 
  16. // - Drew Wells CIS 73767,1244 
  17. // 11/29/90 
  18.  
  19.  
  20.  
  21. // Note - This one is a memory hog for pc's because of the twister 
  22. //        If you can't run it, try editing out some of the twister's 
  23. //        parts.  Requires #include file twister.inc
  24.  
  25. #include "shapes.dat"<PVray$Dir>.dat.
  26. #include "colors"
  27. #include "<PVray$Dir>.dat.textures"
  28.  
  29. #declare It = 
  30. quadric QSphere scale <4.0 0.3 0.3> end_quadric
  31.  
  32. { Camera/Viewer }
  33. view_point
  34.    direction <0.0 0.0  1.5>
  35.    up  <0.0  1.0  0.0>
  36.    right <-1.333 0.0 0.0>
  37.    translate < -15.0  5.0  120.0>
  38.    look_at <10.0 12.0 55.0>
  39. end_view_point
  40.  
  41. #declare Purple_Clouds = texture
  42.        bozo
  43.        turbulence 0.6
  44.        colour_map
  45.           [0.0 0.5   colour red 0.9 green 0.5  blue 0.6
  46.                      colour red 0.4 green 0.0  blue 0.4]  
  47.           [0.5 0.6   colour red 1.0 green 1.0  blue 1.0 alpha 1.0
  48.                      colour red 1.0 green 1.0  blue 1.0 alpha 1.0 ]
  49.           [0.6 1.001 colour red 1.0 green 1.0  blue 1.0 alpha 1.0
  50.                      colour red 1.0 green 1.0  blue 1.0 alpha 1.0]
  51.        end_colour_map
  52. end_texture
  53.  
  54. #declare Sunset_Sky = texture
  55.        gradient <0.0 1.0 0.0>
  56.        
  57.        colour_map   
  58.           [0.0 0.4   colour red 0.8 green 0.0 blue 0.0
  59.                      colour red 0.4 green 0.0 blue 0.4]
  60.           [0.4 0.6   colour red 0.4 green 0.0 blue 0.4
  61.                      colour red 0.0 green 0.0 blue 0.2]
  62.           [0.6 1.001 colour red 0.0 green 0.0 blue 0.2
  63.                      colour red 0.0 green 0.0 blue 0.0]
  64.        end_colour_map
  65.        scale <700.0 700.0 700.0>
  66. end_texture
  67.  
  68. #declare Twister = object
  69.   union
  70.     #include "<PVray$Dir>.inc.twister"
  71.   end_union
  72.   bounded_by
  73.     sphere <0.0 5.0 0.0> 6.0  end_sphere
  74.   end_bound
  75.   texture
  76.     White_Wood
  77.     0.05
  78.     scale <3.0 3.0 3.0>
  79.     ambient 0.1
  80.     diffuse 0.99
  81.   end_texture
  82.   color CBlue
  83. end_object
  84.  
  85. #declare Slice = quadric
  86.    QSphere
  87.    translate <0.0 0.0 3.0>
  88.    scale <0.25 1.00 0.25>
  89. end_quadric
  90.  
  91. #declare Thing = object
  92.   union
  93.     quadric Slice end_quadric
  94.     quadric Slice rotate <0.0 -20.0  0.0> end_quadric
  95.     quadric Slice rotate <0.0 -40.0  0.0> end_quadric
  96.     quadric Slice rotate <0.0 -60.0  0.0> end_quadric
  97.     quadric Slice rotate <0.0 -80.0  0.0> end_quadric
  98.     quadric Slice rotate <0.0 -100.0 0.0> end_quadric
  99.     quadric Slice rotate <0.0 -120.0 0.0> end_quadric
  100.     quadric Slice rotate <0.0 -140.0 0.0> end_quadric
  101.     quadric Slice rotate <0.0 -160.0 0.0> end_quadric
  102.     quadric Slice rotate <0.0  180.0 0.0> end_quadric
  103.     quadric Slice rotate <0.0 -200.0 0.0> end_quadric
  104.     quadric Slice rotate <0.0 -220.0 0.0> end_quadric
  105.     quadric Slice rotate <0.0 -240.0 0.0> end_quadric
  106.     quadric Slice rotate <0.0 -260.0 0.0> end_quadric
  107.     quadric Slice rotate <0.0 -280.0 0.0> end_quadric
  108.     quadric Slice rotate <0.0 -300.0 0.0> end_quadric
  109.     quadric Slice rotate <0.0 -320.0 0.0> end_quadric
  110.     quadric Slice rotate <0.0 -340.0 0.0> end_quadric
  111.   end_union
  112.   bounded_by
  113.       quadric QSphere scale <6.7 6.7 6.7> end_quadric
  114.   end_bound      
  115.   texture
  116.     color red 0.8 green 0.22 blue 0.1
  117.     bumps 0.3
  118.     scale < 0.1 0.1 0.1>
  119.     ambient 0.1
  120.     diffuse 0.9
  121.     phong 0.75
  122.     phongsize 30.0
  123.   end_texture
  124.   color red 0.8 green 0.22 blue 0.1
  125. end_object    
  126.  
  127. #declare Slice2 = sphere <0.0 0.0 0.5> 0.1 end_sphere
  128.  
  129. #declare Thing2 =
  130. object
  131.   union
  132.     sphere Slice2 end_sphere
  133.     sphere Slice2 rotate <0.0 -20.0  0.0> end_sphere
  134.     sphere Slice2 rotate <0.0 -40.0  0.0> end_sphere
  135.     sphere Slice2 rotate <0.0 -60.0  0.0> end_sphere
  136.     sphere Slice2 rotate <0.0 -80.0  0.0> end_sphere
  137.     sphere Slice2 rotate <0.0 -100.0 0.0> end_sphere
  138.     sphere Slice2 rotate <0.0 -120.0 0.0> end_sphere
  139.     sphere Slice2 rotate <0.0 -140.0 0.0> end_sphere
  140.     sphere Slice2 rotate <0.0 -160.0 0.0> end_sphere
  141.     sphere Slice2 rotate <0.0  180.0 0.0> end_sphere
  142.     sphere Slice2 rotate <0.0 -200.0 0.0> end_sphere
  143.     sphere Slice2 rotate <0.0 -220.0 0.0> end_sphere
  144.     sphere Slice2 rotate <0.0 -240.0 0.0> end_sphere
  145.     sphere Slice2 rotate <0.0 -260.0 0.0> end_sphere
  146.     sphere Slice2 rotate <0.0 -280.0 0.0> end_sphere
  147.     sphere Slice2 rotate <0.0 -300.0 0.0> end_sphere
  148.     sphere Slice2 rotate <0.0 -320.0 0.0> end_sphere
  149.     sphere Slice2 rotate <0.0 -340.0 0.0> end_sphere
  150.   end_union
  151.   bounded_by
  152.     sphere <0.0 0.0 0.0> 12 end_sphere
  153.   end_bound
  154.   texture
  155.     color red 0.1 green 0.22 blue 0.8
  156.     ambient 0.1
  157.     diffuse 0.9
  158.     phong 0.75
  159.     phongsize 30.0
  160.   end_texture
  161.   color red 0.1 green 0.22 blue 0.8
  162. end_object    
  163.  
  164.  
  165. {*****************************************}
  166. {*****************************************}
  167.  
  168. object
  169.    Twister
  170.    { scale <4.7 8.0 4.0> }
  171.    rotate <-15.0 30.0 0.0>
  172.    translate <-16.0 7.7 61.5>    
  173. end_object    
  174. object
  175.    Twister
  176.    {scale <1.0 2.0 1.0> }
  177.    rotate <-15.0 0.0 -10.0>
  178.    translate <0.0 1.0 88.0>    
  179. end_object    
  180. object
  181.    Twister
  182.    {scale <4.5 8.0 4.0>}
  183.    rotate <0.0 45.0 0.0>
  184.    translate <13.0 25.0 40.0>    
  185. end_object    
  186.  
  187. object
  188.    Twister
  189.    {scale <4.5 8.0 4.0>}
  190.    rotate <-15.0 0.0 -10.0>
  191.    translate <26.0 14.0 70.0>    
  192. end_object    
  193.  
  194. { Little Things }
  195. object
  196.    Thing 
  197.    scale <1.5 3.0 1.5>
  198.    translate < -11.0 1.55 95.0> 
  199. end_object    
  200. object
  201.    Thing2 
  202.    scale <6.0 6.0 6.0>
  203.    rotate <-10.0 30.0 0.0>
  204.    translate <-11.0 1.55 95.0> 
  205. end_object    
  206.  
  207. object
  208.    Thing 
  209.    scale <1.5 3.5 1.5>
  210.    translate <-10.0 10.55 95.0> 
  211. end_object    
  212. object
  213.    Thing2 
  214.    scale <10.0 10.0 10.0>
  215.    rotate <0.0 0.0 -35.0>
  216.    translate < -10.0 10.55 95.0>    
  217. end_object    
  218.  
  219. object
  220.    Thing 
  221.    scale <1.5 3.5 1.5>
  222.    translate < -4.0 4.0 80.0>    
  223. end_object    
  224. object
  225.    Thing2 
  226.    scale <6.0 6.0 6.0>
  227.    rotate <-30.0 0.0 20.0>
  228.    translate < -4.6 5.55 80.0> 
  229. end_object    
  230.  
  231.  
  232. object
  233.    Thing 
  234.    scale <1.5 3.5 1.5>
  235.    translate < 11.0 1.6 90.0>    
  236. end_object
  237. object
  238.    Thing2    
  239.    scale <8.0 8.0 8.0>
  240.    rotate <0.0 45.0 20.0>
  241.    translate < 10.0 7.0 90.0>    
  242. end_object    
  243.  
  244. {cloud hills}
  245. object
  246.     quadric Paraboloid_Y 
  247.             scale<40.0 10.0 77.0>
  248.     end_quadric 
  249.     rotate <0.0 0.0 180.0>
  250.     translate <0.0 21.0 -28.0>
  251.     texture
  252.       Purple_Clouds
  253.       scale < 5.0 5.0 5.0>
  254.       ambient 0.5
  255.       diffuse 0.9    
  256.     end_texture
  257.     color red 0.5 green 0.6 blue 0.2
  258. end_object
  259.  
  260. {cloud hill to right}
  261. object
  262.     quadric Paraboloid_Y 
  263.             scale<30.0 10.0 40.0>
  264.     end_quadric 
  265.     rotate <0.0 0.0 180.0>
  266.     translate <40.0 14.0 50.0>
  267.     texture
  268.       Purple_Clouds
  269.       scale < 7.0 5.0 5.0>
  270.       ambient 0.5
  271.       diffuse 0.9    
  272.     end_texture
  273.     color red 0.6 green 0.6 blue 0.1
  274. end_object
  275.  
  276. {The Sun}
  277. object
  278.   sphere <0.0 0.0 0.0> 150.0 end_sphere
  279.   translate <150.0 40.0 1200.0>  
  280.   texture
  281.     colour White
  282.     ambient 1.0
  283.     diffuse 0.0
  284.   end_texture
  285.   light_source
  286.   colour White
  287. end_object
  288.  
  289. {sky}
  290. object
  291.    sphere <0.0 0.0 0.0> 2000.0 inverse end_sphere
  292.    texture
  293.      Sunset_Sky
  294.      translate <0.0 200.0 0.0>
  295.      scale <1.2 1.2 1.2>
  296.      ambient 0.6
  297.      diffuse 0.0
  298.    end_texture
  299.    color White
  300. end_object    
  301.